unit uCadProcedimentos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uCadPadrao, DB, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;

type
  TfrmcadProcedimentos = class(TfrmCadPadrao)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    DBText1: TDBText;
  private
    { Private declarations }
  public
    procedure Localizar; override;
    const
      Tabela = 'Procedimentos';
      CampoCod = 'IdProcedimento';
      CampoDesc = 'NomeProcedimento';
      NomeDesc = 'Nome do Procedimento';
  end;

var
  frmcadProcedimentos: TfrmcadProcedimentos;

implementation

uses uDMCad, uConsPadrao;

{$R *.dfm}

procedure TfrmcadProcedimentos.Localizar;
begin
  if not Assigned(frmConsPadrao) then Application.CreateForm(TfrmConsPadrao, frmConsPadrao);
  frmConsPadrao.SetParametros(Tabela, CampoCod, CampoDesc, NomeDesc);
  inherited;
end;
end.
